home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
info
/
cad08n10.zip
/
MYLINE.LSP
< prev
next >
Wrap
Lisp/Scheme
|
1994-02-21
|
217b
|
11 lines
(defun C:myline ()
(setq e 1)
(while e
(setq pt1 (getpoint"\nPick the first point "))
(if (= pt1 nil)
(prompt "\nYou didn't pick a point ")
(setq e nil)
)
)
)